home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr48
/
file211.zip
/
BLOCK.PAS
next >
Wrap
Pascal/Delphi Source File
|
1993-04-07
|
1KB
|
31 lines
{ General definitions for all Searchlight block oriented files }
type FileHeader = record { header info on file }
version: word; { version of unit that created file }
recsize: word; { record size }
offset: longint; { offset to 1st record }
nextfree: longint; { next free record }
end;
RecordHeader = record { control header to records }
mark: byte; { FF to indicate deleted rec }
extra: byte;
next: longint; { ptr to next free rec }
end;
TreeRootType = record { root info for tree/list type files }
treeroot: longint; { root of tree }
listroot: longint; { linked list root }
entries: longint; { # of entries }
end;
TreeLeafType = record { leaf info for tree/list type files }
status: byte; { 0=active, 255=deleted }
left,right: longint; { pointers to child nodes }
last,next: longint; { linked list ptrs }
end;